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(54)Tit!e: APPARATUS FOR PRODUCING SOFTWARE AND METHOD F OR PRODUCING SOFTWARE 



(57) Abstract 

To automatically produce software in any field by using only a 
mechanical algorithm without relying on the individual ability of the SE such 
as experience, knowledge and ability for adaptation, a W04 phase element, a 
W04 logical element, a W02 logical element, a W03 phase element, a W03 
logical element, and a pallet function for which derivation data for deriving a 
defined body identifier, a word identifier, a processing path, and a preset 
value are not defined arc stored in advance, and a defined body identifier, a 
word identifier, a processing path, and derived data are inputted for each word 
and buried in predetermined positions in the undefined W04 phase element, 
W04 logical element, W02 logical element, W03 phase element, W03 logical 
element, and pallet fiinction. The invention is useful to produce and maintain 
software. 
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lg| 1 1 (C 43 T , r G S M E N U J CO T CD f W 0 4 j li H ffi ISeSU ^ G 
S M E N U ^ n7"c W 0 4 /\° U -y h T 0 , ;i COW 0 4 /\° U h tC cfc 
oTZ-zL — H^GSMENUT^^ff^ejc^n-So 

res MENU J (DT(D rw0 2j «Ilirfn,1i\KgiJ^G S M E N UTt^U^^ 
n/lW 0 2 /I U >y h T ^ 0 . ^ CD VV 0 2 /N° U -y h llcfc o T ilUJ M tI)^" 

^ n -5 o 

r G S O I 0 8 J (7) T CD r W 0 4 J ni iIiTiS|^,iJ-7 G S O I 0 8 7)^' ft $ 

ntzw 0 4 /\° u -y h T ^ 0 . :i CD w 0 4 /N° u -y \- \z ^ -o X mwim^miSi 

1 9 



^O^^^-^^^S^ PCT/JP99/01394 

rcSO I 0 8j c7)TO rwo 2j l:immmS^}^ G S O l 0 8f^U^^ 
rW0 3j iti^X^AlZ~m(DWO 3/-^Uy h-C$>D. CCDW0 3/t 

rPSHINFILj rpMOTOFILj^ TPSHINFILJ^, 

f^^. rio-wo4-RKi-sEcj ifj. r^^^^^7z-f;Pj 
rio-W04-RDi-sECj its, ^fM^^(g:,^^,^J ^ 

O-W0 2-RK1-SECJ ifS. ^S|^^te^^^;^J 
W03-RK1-SECJ ril^^^^^^^pj ^.e>5^'-5'^.J 

3 RDl-SECji(i, rr^^^,f5:7^<;H ;:;^e>^-5^^U-H• 
c Is] tHi T ^ -5 o 
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9 0 4 ) , -^n^'no^mmizmmT^wt^r^ (x^^-^ 9 o 5 ) 0 m 

r^7j (I^* L-rmsf ig(gij^ch LT'PASSNOr, 'CLNAME'. "YOKNZAN". 
"MSSGCDl", "PF25KEr. " PFSKEY" ^mj^r^. 

mi 2itx-j]^ 8 0 3 ^0 At}^n^mm^(D-m^^s-rm-c$>^o 

^m^-cit. mmmm^ (id) <Dxtim. mm^n^cDxtim. mm 

"T- ^:^^xtim^f)^mtim'\^A^ (i/o) , ^'-^(^fifm, y'—^mfi 
/)^m^m^^y:^m (Ptt) , mmyyoi' {±mi^rz<i:^izmm^nrz 

ju^^tt LTi.^^. ) , ^mms^ (R-NO) . mmm^ik^mmizti 
jt^Lrzmm^-m-^ (f-key) . :kmmmmT. mm^m i^f--^ 

m^\z\-x. 'f-9ti^xtim'±(D)%^\z\-i.\. Y E E (Di^Jiti ct r>^m^\z 

jjjc-r^;5^;^ctt. ^IS^-r^o J; D Scf*:6^tz{i. r :7 y -< cd - ^ co 
(D — M T ^ -5 o 
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mmm$^<Dx-jjmmizit. ±mLr^mmmm (r=i^5) ^m^r 

^fz. ^^MH'i^o r^ii^jgj ±m<D^mmm (r-no) , 
mm=^-m^ (F-KEY) &zf:-xmmmm^izmmr^. 

n (X^^yyi 3 0 1) , l^i<,^^(D^ff;5^Vj:$n^i: (X^v^l 3 
0 2) . iS^Agps 0 4^^miCDtB1tg|58 0 1 6 " ^-^COg^^^" 

hr^^^n^^;,^^ 3 0 3 ) , ^^^Ofiffi 

hm^<DFrTmo)iimiz^mmizm^^nrz" 

^"tltiJ^iAS C^T" V y 1 3 0 4 ) 



* 

L-W03-§% 1 1 9@-SEC SECTI ON. 
L-\V03-@S;i6g'-@«19@-START. 
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IF @3;i6@-@3;i9@ OF W03 NOT = @^20@ 

GO TO L-W03-@^I6@-@%19@-EXIT 
END-IF. 

*--< eS^fiX >— 

*--< 7^t}m-\±C0t€ W0 2^-t<;/N >— 

* MOVE OF W02 

* TO @%16§-@3!19@ OF W03. 

^±f^ >— 

* MOVE G#####-***** OF W03 

* TO F#####-***** OF F#####-REC. 

* PERFORM I0-W03-RD*-SEC. 

* IF RD*-INVS = "IV" 

* MOVE @^20@ TO @«16@-@S;i9@ OF W03 

* ELSE 

* MOVE F#####-@S;i9@ OF F#####-REC 

* TO @%16@-§«19§ OF W03 

* END-IF. 

* COMPUTE %%\6§-ig%\d@ OF W03 

* = ###-### OF W03 

* + OF W03. 

*— < ft^ximm >— 

IF §^16§-@'%19® OF W03 = i&%20§ 

* OR §%16@-@%19@ OF W03 > 0 
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ADD 1 TO «I6@-@^|9@-CNT 
IF §%16@-§%19@-CNT < RECALL-MAX 

MOVE "1" TO RECALL-FLG 

ELSE 

MOVE "r TO @%16@-@a;i9@-N0N 
END-IF 
END-IF. 

L-W03-@«16@-@S;i9@-EXIT. 
EXIT. J 

Z(D^^m(DWO 3miMmm(D:fn ^^AlZisi^^T. 

@%i 9 @itm§mm^. 

* * * ^ ^^^^ ^ ^ ^ ^ ^ - ^ i i: ^ -r ^ la 

# # ^ - # t^n&zf:, **-*** OiS/±l-r-5/c^(7)ffli£lS 

n (D mmt^m'f- ^ m L T ^ ^ 

.lg ?/r> (7) fig % 8 @ 
m rffi su ^(7)m^^@ } e @ 

-H^ SiJ T CD ;:>i" @ % 1 9 @ 



wo 99/49387 



• 

PCT/JP99/01394 



mf^(Dmy^^@ % 2 o @ 
*— < ie^^ >— 

— < Xtl!S,i^(D ii^ W0 2^-fe<:/h >— 

MOVE @%\6@-®%l9@ OF W02 
TO @^16@-@:«19@ OF W03. 



>- 



MOVE G#####-t**** OF W03 

TO F#####-***** OF F#####-REC. 
PERFORM I0-W03-RD*-SEC. 
IF RD*-INVS = " IV° 

MOVE @^20@ TO @^16@-@%19@ OF W03 

ELSE 

MOVE ¥UUi-§%\9@ OF F#####-REC 

TO @^16@-@%19@ OF W03 

END-IF. 

COMPUTE @%16@-@%19@ OF W03 

= ###-### OF W03 
+ OF W03. 

(; C6 L T u ^ o 



7s tl II 'l-t <D W 0 2 ^ iz h >— 

* MOVE @%!6@-@%19@ OF W02 
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* TO @^16@-§^19@ OF W03. 

75^'^-^xU7 (D. i > Wn) . 
W n ) iZ^Ty'a ^' ^ 2^^i^^^ 



>— 

* MOVE G#####-***** OF W03 

* TO F#####-***t* OF F#####-REC. 

* PERFORM L0-W03-RD*-SEC. 

* IF RD*-1NVS = " IV' 

* MOVE @%20@ TO §%\6®-§%l9§ OF W03 



* ELSE 

* MOVE F#####-@^i9@ OF F#####-R£C 

* TO @%IG@-@%19§ OF W03 

* END-IF. 



* COMPUTE @a;i6@-§Xi9@ OF W03 

* - ###-### OF W03 

* + OF W03. 



^ L T U ^ „ 
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mm^m(D^m. @%8@. @% i e @. @%i9@, @% 2 o @. # 




L-W03-GSOI08-PASSN01-SEC SECTION. 
L-W03-GS0I08-PASSN01-START. 
*— < -^MPim >-- 

IF GSOI08-PASSN01 OF W03 NOT = LOW-VALUE 

GO TO L-WO3-GSOI08-PASSNO1-EXIT 
END-IF. 
*— < ^^±n^ >-- 

*— < Atimf^(Dtt W02^-t-vH >— 

MOVE GS0I08-PASSN01 OF W02 

TO GSOI08-PASSN01 OF W03 

*— < fStlLPl^ >— 

IF GSOI08-PASSN01 OF W03 = LOW-VALUE 
OR GSOIOS-PASSNOl OF W03 > 0 

ADD 1 TO GSOI08-PASSN01-CNT 
IF GS0I08-PASSN01-CNT < RECALL-MAX 
MOVE "l- TO RECALL-FLG 

ELSE 



m 
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MOVE ']" TO GS0I08-PASSN01-N0N 
END-IF 
END-IF. 

L-W03-GSOI08-PASSN01-EXIT. 
EXIT. 

* 

* 

* 

L-W03-GS0I08-CLNAME-SEC SECTION. 
L-W03-GS0I08-CLNAME-START. 
< ^Mm^ >— 

IF GS0I08-CLNAME-XX OF W03 NOT = ALL " 9" 

GO TO L-W03-GSOI08-CLNAME-EXIT 
END-IF. 

*— < ee^^ >— 
>— 

MOVE G SOI 08- PASSNOl OF W03 

TO FMOTOFIL- PASSNOl OF FMOTOFIL-REC. 
PERFORM I0-W03-RD1-SEC. 
IF RDl-INVS - "iv" 

MOVE ALL "9- TO GSOI 08-CLNAME-XX OF W03 

ELSE 

MOVE FMOTOFIL-CLNAME OF FMOTOFIL-REC 

TO GS0I08-CLNAME OF \V03 



m 
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END-IF. 

*— < B^iin^ >— 

IF GS0I08-CLNAME-XX OF W03 = ALL ' 9" 
OR GSOI08-CLNAME-XX OF W03 > 0 
ADD 1 TO GSOI08-CLNAME-CNT 
IF GSOI08-CLNAME-CNT < RECALL-MAX 
MOVE ' I" TO RECALL-FLG 

ELSE 

MOVE T TO GSOI08-CLNAME-NON 
END-IF 
END-IF. 

L-W03-GS0I08-CLNAME-EXIT. 
EXIT. 

* 



L-W03-GSOI08-YOKNZAN-SEC SECTION. 
L-W03-GS0I 08-YOKNZAN-START. 

*— < ^Mm^ >— 

IF GSOI08-YOKNZAN OF W03 NOT = LOW-VALUE 

GO TO L-W03-GSOI08-YOKNZAN-EXIT 
END-IF. 
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MOVE G SO 1 08- PASSNOl OF W03 

TO FMOTOFIL- PASSNOl OF FMOTOFIL-REC. 
PERFORM IO-W03-RDI-SEC. 
IF RDl-INVS = ' IV" 

MOVE ALL '9- TO GS0I08-CLNAME-XX OF W03 

ELSE 

MOVE FMOTOFIL-YOKNZAN OF FMOTOFIL-REC 

TO GSOI08-YOKNZAN OF W03 

END-IF. 

*— < i^iinm >— 

IF GSOI08-YOKN2AN OF W03 = LOW-VALUE 
OR GS0I08-Y0KNZAN OF W03 > 0 

ADD 1 TO GSOI08-YOKNZAN-CNT 
IF GSOI08-YOKNZAN-CNT < RECALL-MAX 
MOVE "1" TO RECALL-FLG 

ELSE 

MOVE T TO GSOI08-YOKN'ZAN-N0N 
END-IF 

END-IF. 

L-W03-GSOI08-YOKNZAN-EXIT. 
EXIT. 



* 

* ^ .y -t _ ^- 
* 



L-W03-GSOI08-MSSGCD1-SEC SECTION. 
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L-W03-GSOI08-MSSGCD1 -START. 
*--< ^iMn^ >— 

IF GS0I08-MSSGCD1 OF W03 NOT = LOW-VALUE 

GO TO L-W03-GSOI08-MSSGCD1-EXIT 
END-IF. 

*— < >— 

*— < ^iim^ >— 

IF GS0I08-MSSGCD1 OF W03 = LOW-VALUE 
OR GSOI08-MSSGCDI OF W03 > 0 

ADD 1 TO GSOI08-MSSGCD1-CNT 
IF GSOI08-MSSGCD1-CNT < RECALL-MAX 
MOVE ' r TO RECALL-FLG 

ELSE 

MOVE °r TO GS0I08-MSSGCD1-N0N 
END-IF 
END-IF. 

L-W03-GS0I08-MSSGCD1-EXIT. 
EXIT. 

* 

If 



L-W03-GSOI08-PF3KEY-SEC SECTION. 
L-W03-GSOI08-PF3KEY-START. 

*— < "^Mn-^ >— 
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IF GSOI08-PF3KEY OF W03 NOT - LOW-VALUE 

GO TO L-W03-GS0I08-PF3KEY-EXIT 
END-IF. 

*— < ge^^ >— 

*— < m.^im'^ >— 

IF GS0I08-PF3KEY OF W03 = LOW-VALUE 
OR GSOI08-PF3KEY OF W03 > 0 

ADD 1 TO GSOI08-PF3KEY-CNT 
IF GS0I08-PF3KEY-CNT < RECALL-MAX 
MOVE T TO RECALL-FLG 

ELSE 

MOVE T TO GSOI08-PF3KEY-NON 
END-IF 
END-IF. 

L-W03-GSOI08-PF3KEY-EXIT. 
EXIT. 

* 

* 

L-W03-GSOI08-PF25KEY-SEC SECTIO.N. 

L-W03-GSOI08-PF25KEY-START. 
*— < ^.sT^iJ^ >— 

IF GS0I08-PF25KEY OF W03 NOT = LOW-VALUE 
GO TO L-W03-GSOI08-PF25KEY-EXIT 
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END-IF. 
*— < ^ S^ejc >— 

*— < J^Zttn^ >— 

IF GSOI08-PF25KEY OF W03 = LOW-VALUE 
OR GSOI08-PF25KEY OF W03 > 0 

ADD 1 TO GSO108-PF25KEY-CNT 
IF GSOI08-PF25KEY-CNT < RECALL-MAX 
MOVE ° r TO RECALL-FLG 

ELSE 

MOVE "r TO GSOI08-PF25KEY-NON 
END-IF 
END-IF. 

L-W03-GS0I08-PF25KEY-EXIT. 
EXIT. 

* 

* 



Y-W03-§%16@-@%19@-SEC SECTION. 
Y-W03-@% 1 6@-§% 1 9@-START. 

IF §%16§-@%19@ OF WO 2 NOT = t%20§ 
MOVE @!i;i6@-@%l9@ OF WO 2 
TO @%16i-§%19@ OF W03 
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END-IF. 

Y-W03-§3;i6@-@%19@-EXIT. 
EXIT. 



i 



Y-W03-GSOI08-PASSN01-SEC SECTION. 
Y-W03-GSOI08-PASSN01-START. 

IF GS0I08-PASSN01 OF W02 NOT = LOW-VALUE 
MOVE GSOI08-FASSNO1 OF W02 
TO GSOI08-PASSNO1 OF W03 

END-IF. 

Y-W03-GS0I08-PASSN01-EXIT. 
EXIT. 

* 

* 



Y-W03-GSOI08-CLNAME-SEC SECTION. 
Y-W03-GS0108-CLNAME-START. 

IF GSOI08-CLNA.ME-XX OF W02 NOT - ALL " 9" 
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MOVE GS0I08-CLNAME OF W02 
TO GSOI08-CLNAME OF W03 

END-IF. 

Y-WG3-GS0I08-CLNAME-EXIT. 
EXIT. 

* 



Y-W03-GSOI08-YOKNZAN-SEC SECTION. 
Y-W03-GSOI08-YOKNZAN-START. 

IF GSOI08-YOKNZAN OF W02 NOT = LOW-VALUE 
MOVE GS0I08-Y0KNZAN OF W02 
TO GSOI08-YOKNZAN OF W03 

END-IF. 

Y-WO3-GS0I08-YOKNZAN-EXIT. 
EXIT. 

* 



Y-W03-GSOI08-MSSGCD1-SEC SECTION. 
Y-W03-GSOI08-MSSGCD1 -START. 

IF GSOIOS-MSSGCDI OF W02 NOT = LOW-VALL-E 
MOVE GSOIOS-MSSGCDI OF W02 
TO GSOIOS-MSSGCDI OF W03 
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END-IF. 

Y-W03-GS0I08-MSSGCD1-EXIT. 
EXIT. 

* 

i 

* 

Y-W03-GSOI08-PF3KEY-SEC SECTION. 
Y-W03-GSOI08-PF3KEY-START. 

IF GSOI08-PF3KEY OF W02 NOT = LOW-VALUE 
MOVE GSOI08-PF3KEY OF W02 
TO GS0I08-PF3KEY OF W03 

END-IF. 

Y-W03-GSOI08-PF3KEY-EXIT. 
EXIT. 

* 

* 

* 

Y-W03-GSOI08-PF25KEY-SEC SECTION. 
Y-W03-GSOI08-PF25KEY-START. 

IF GSOI08-PF25KEY OF W02 NOT = LOW-VALUE 
MOVE GS0I08-PF25KEY OF W02 
TO GS0108-PF2 5KEY OF W03 

END-IF. 

Y-W03-GSOI08-PF25KEY-EXIT. 

3 6 





wo 99/49387 



PCT/JP99/01394 



EXIT. 



PERFORM L-W03-@*16i-§a;i9@-SEC. 



PERFORM Y-W03-@%16@-@%19@-SEC. 

ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 

SOURCE-COMPUTER. AS400. 

OBJECT-COMPUTER. AS400. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 



ORGANIZATION IS INDE.XED 
ACCESS MODE IS DYNAMIC 
RECORD KEY IS EXTERNALLY-DESCRIBED-KEY 



*— K E Y D — * 



SELECT @S;i6@ 



ASSIGN 



TO DATABASE-§%16@ 
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* WITH DUPLICATES 
FILE STATUS IS @^24@. 

*— K E Yte L— * 

SELECT mm ASSIGN TO DATABASE-@.16@ 

* • ORGANIZATION IS SEQUENTIAL 

* ACCESS MODE IS SEQUENTIAL 

* FILE STATUS IS @%24§. 
DATA DIVISION. 

FILE SECTION. 

FD @%16§ 

LABEL RECORD IS STANDARD. 
01 @!«16@-R. 

COPY DDS-ALL-FORMATS OF exiBi. 
01 @«16@-REC. 

^^^^ @%9@. 
WORKING-STORAGE SECTION. 
01 PALETTE-WORK. 

PIC S9(03) COMP. 

01 WK-FILE-STATUS. 

03 §%24§ pjc x(02) 

01 FILE-STATUS. 

03 @«7§-0PNS PIC X(01) 

03 @S;7@-REDS PIC X(01). 

03 @^7@-INVS PIC X(02) 
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*--<w 0 3 mm^ 7 izmmr^o 

01 WK-@«16@. 
COPY @^16@. 

LINKAGE SECTION. 

*--< CTRL >— * 
01 CTRL-AREA. 

COPY CTRLAREA. 
*— < W02 >— ♦ 
01 W02-AREA. 

02 W02 OCCURS 5. 
COPY W0204. 

* — < iS® >~ 
03 W02-@%16§ REDEFINES INFO. 

COPY @%16@. 
03 §%16@-N0N REDEFINES NON-FLG. 
COPY @%16@N. 
*— < W03 >— * 
01 W03-AREA. 

02 WO 3. 

* — < I / F mm >— 

03 W03-CNTRL. 

05 RECALL-FLG PIC .Xd). 
05 RECALL-MAX PIC 9 (2) . 

* — < mm >— 
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03 W03- ITEMS. 

04 W03-@%16@. 

COPY @s;i6§. 
04 W03-FILE. 

COPY @^16@. 
04 W03-LIST. 

COPY @^I6§. 

* — < ^liltL^ ^ ^ >— 
03 W03-NON. 

COPY %%\\ 
COPY @%i 
COPY @a;i6@N. 

* — < ^^0^ >— 
03 W03-CNT. 

COPY 

COPY @s;i6@z. 
COPY 

*— < W04 >— * 
01 W04-AREA. 

02 W04 OCCURS 5. 
COPY W0204. 
* — < ilii5i >— 

03 W04-@%I6@ REDEFINES INFO. 
COPY %xm. 

03 OPTION-ID.X-DEF REDEFINES OPTION-ID.\. 

COPY %%n%z. 
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*— < WFL >— 
01 WFL-AREA. 

03 FILLER PIC X(01). 

PROCEDURE DIVISION USING CTRL-AREA 

W02-AREA 
W03-AREA 
W04-AREA 
WFL-AREA. 

* * MA I N * 

MAIN-SEC SECTION. 
MAIN-START. 

*— < mmm >— 

PERFORM INIT-PROC. 
PERFORM Y-PROC. 

*— < s^mmm >— 

PERFORM UNTIL RECALL-FLG = SPACE 

MOVE SPACE TO RECALL-FLG 
PERFORM L-PROC 
END-PERFORM. 
*— < P write 

PERFORM I0-W03-WT*-SEC. 
PERFORM 10-W03-UP*-SEC. 
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*--< mmm >— 

PERFORM FIN-PROC. 
MAIN-END. 

EXIT PROGRAM. 

* * mMm. * 

INIT-PROC. SECTION. 
INIT-START. 

*— < wmm >— 

INITIALIZE PALETTE-WORK. 

INITIALIZE WK-FILE-STATUS. 

INITIALIZE FILE-STATUS. 

MOVE SPACE TO FLAME-FLG OF CTRL-AREA. 

WOVE 05 TO RECALL-MAX. 

MOVE HIGH-VALUE TO RECALL-FLG. 

*— < ;^-T--->-N o . >- 

MOVE STAGE-NO OF CTRL-AREA TO PS. 
IF (PS < 1) OR (PS > 5) 

MOVE "STAGEERR' TO MSG-NO 
END-IF. 

*-< mmmB " (dr^ >- (low-value / all' 9" ) 

MOVE LOW-VALUE TO m-%%1%. 

*-< WO 3 " ^" (Dm-^ >- (LOW-VALUE / ALL" 9" ) 

MOVE LOW-VALUE TO WK- ITEMS. 

MOVE WK-i%l@ TO \m-@%\§. 
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*— < ^nm it >— 

INITIALIZE W03-NON. 
INITIALIZE W03-CNT. 
INIT-EXIT. 
EXIT. 

* ********************* 

* * itmmm * 

* ********************* 

Y-PROC SECTION. 
Y-START. 
*--< 

COPY 
Y-EXIT. 

EXIT. 

* ******************** 

* * mmmm * 

* ******************** 

L-PROC SECTION. 
L-START. 
*— < 

COPY 
L-EXIT. 

EXIT. 

* ******************** 

* * mmm * 

* ******************** 
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FIN-PROC SECTION. 
FIN-START. 
*— < y T )V CLOSE) 
FIN-EXIT. 
EXIT. 

* * ii+S^m - s e c t i o np * 

COPY 

* 

*— < %%\% 
COPY 

* 
* 



* s^Hi^m - sections^ i 



* F I L E I /o * 

* %7t^^^-f — ^ y 

*--< '-y — y ^ )\y READ ? @:k8@ >-_ 
IO-W03-§%7@-SEC SECTION. 
IO-W03-@!K7@-START. 

IF i%7@-0PEN NOT = " r 

OPEN INPUT @s;i6§ 
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MOVE " r TO @%7§-0PNS 

END-IF. 

READ AT END 

MOVE "E" TO F-END 

GO TO IO-W03-§%7@-EXIT 

END-READ. 
IO-W03-@^7@-EXIT. 
EXIT. 

*— < KEY READ ? @%8@>— 
IO-W03-@^7§-SEC SECTION. 
IO-W03-@%7@-START. 

IF @%7@-0PNS NOT = r 

OPEN INPUT §%im 
MOVE " r TO @^7@-0PNS 

END-IF. 

IF @S;7§-REDS NOT = " 1" 

READ §^16@ INVALID 

MOVE MV" TO @S;7@-INVS 
GO TO I0-W03-@*7g-EXIT 

END-READ 

MOVE " 1" TO @%7@-REDS 

IO-W03-§%7@-EXIT. 
EXIT. 
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*--< @%s§ >— 

IO-W03-@:K7@-SEC section. 
IO-W03-@!fe7@-START. 

IF @S:7@-0PNS NOT = ' r 

OPEN OUTPUT W16@ 

MOVE ' r TO i^7@-0PNS 

END-IF. 

WRITE @^16@-REC INVALID 

MOVE "ir TO M7@-INVS 

GO TO IO-W03-@^7@-EXIT 
END-WRITE. 

I0-W03-@:«7@-EXIT. 
EXIT. 

I0-W03-@S;7@-SEC SECTION. 
I0-W03-@%7§-START. 
*— < KEY READ ? >— 

IF §%7@-0PNS NOT = " r 

OPEN I-O @^i6@ 
MOVE ' r TO @ii;7@-0PNS 

END-IF. 
* — < k e y 

MOVE WFL-RD?-KEY-#| TO k e y ^^zjr 
READ §^16® INVALID 
4 6 
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MOVE " IV" TO §S;7@-INVS 
GO TO IO-W03-@!K7@-EXIT 

END-READ. 
*— < UPDATE ? ®%U >— 

IF i*7@-INVS NOT = " IV" 

REWRITE @!«16§-REC INVALID 

MOVE ' IV" TO @X7§-INVS 
GO TO 10-W03-@!li7@-EXIT 

END-REWRITE 
END-IF. 
IO-W03-@^7@-EXIT. 
EXIT. 

* 

% 2 4it %16 + STS. 

%1 7 :7 y < ;K7):S|J;, 

% 9 \t^m^(Dy T )i<DmmmMi^ , 

% 7 \-i^m^o:>y 7 jicDR - N o , 

% 1 \tW 0 n 

^^^ti^'iiM it L T t/i -g) o 

^7t. w 0 2 mmwm. w o 2 /t u -y h mwi. w 0 4 fi-^fiig^, w 0 
4 f4+B^iii^;c^w 0 4 y\° u -y h m'^Xiz'Di^x t,mmiz^mB'9{zyn ^-^ 

A 75^' ± »5c $ n -5) o 
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+ ^t>_d;nf3;. /M/>;/h§i^, '(iffill^:^!/^ 

v^s^'xra. ^fittffl^i, aK«^_<t, «*ossft*>0tia. 

d'oMcT)^ — -1;^ ^ fX- ^' ^ 7^? w ^ 4^ ^ . , ^ 
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si ;}< CO $Q n 

XS\zy 7 ^ >'I^Mff(7)T-'-^^tt$:ff ^ /is6(Z)W 0 3 fiffl^S;5cUCW 0 3 
fm Jl H ^ T o T . 

(a-1) W0 4fifflM^{i, lelC^agcDWO 3 CDt^-^X'J TT^^r- ^" 
'QUU^^\Z\-X. ^ 0 4 (D ^ fg^- ^ X U T MfB 1^1 i; mgg W W 0 

(a -2) W0 4ffirJlM^H, SI^^HgCOW 0 4 CD5=^-37X U 
T/cCU-^-^T-S.^ Till i; ^35(7) W 0 2 ^ fcflW 0 3 (^-^^^1^7 ':f-h^^L 

ti^i^¥g§tA51-(7)^Sg(DW 0 4 (7)5=-'-^X U y 6 ^ 1^ ^ fig (?5 'xg fit ^ 
^ fi ^ # ffi T ^ /j; I ^ ^ T- ^ o T *g fjj nf <h ^ { 3 ( S S 12 fi, 7 ^ ^' 

( a - 3 ) W 0 2 S^J!M3IS-«, ^l^:^-McDWO 2 (7)5^'-^xU 7;5r- 

Vl /j: ^ T- ^ o TFQ^eOijjnTfig/j: tz^Xz \1¥\&)] "7 ^ ^' ^ -fe -y h L , 
m]^^^t^UtL^\Z\t-A^\}ltLy ^ ^'^^ -y h-r-f) fc(7)T-^ 0 . 
( a - 4 ) VV 0 3 f4ffl?gm«. RD^sgCDWO 2 (T^^-d^xU 77^)^" 
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(a -5) WO mtmm(DWO 3(D^~^jL'J7^i- ^" 

^t.t^\Z^m^(D^V^O 2^'-^xUT^a^iA^/fW0 27N'U>y h, 
'B^^i^^'7■I^\H(D±'^mi^±.\Z^:^t^mi^(D^^N0 3 iti^^m^ZSW 

f -5 /\° 1/ h If . 
€ M JJllli g§ ^ ^ L . >t $ ^ /r li ^ ( c i: /V w 0 3 / n= U -y 
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wo 2mmmm. wo sitimmm. wo 3w«mmmRzs±m (b) o/t 



^mRZf±m<D (b) (DZ-^U y hmmZSlZ (c) (D^^(Dm^(D^miZ 

2. (a) ±M-r^vyhO:c7iZ'^^^f^mm. y T Ju^Tcitmm 
i&.T. mm. y T ^ )i-BLXfmm^ ^-^mw-] ) \z^tEr^^ 

x(Dm.m\zt^\.-z\^m.^n. t^-D^mw. mm^n^n\zn-r^'^mw 

m-BLiS"^ 0 Am^mm. m^m^^xk'^-r^fz^(D\NQ2m^^m. m 
xi\zy T )^'^%(D't~ '^■^m^fx ofz^d^yN 0 3 \tL^^m^TS\^ o s 

(a-1) W 0 4 [5!C^,1g(Z)W0 3 <7)5="-^X U Tt!;^'" ^" 

T/c£ U Ji ^ (3 (i. ^ IgAV 0 4 CD ^ |g 7^'- ^ X U 7 %m Wi D ^IgCDW 0 

(a-2) W 0 4 IKifi^J^fi, ^M^-S5(7DW0 4 (Dt^-'-^'XU 77!?^"" 
-e/cCUii^T$)o Tin] i;ipi!^i(7)W 0 2S/z(SW0 3 (7) bt :7 ^ ^'^ t)^' -t 




. W0 2^fig^. W0 3'f4;ffiM^, W 0 3 HiH 
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^ u -t h L > mmm (Dw 0 4 (D ^ - ^ jL \j Y "^(Dm-^" iz 

IS S M ^ ^ til T # /j: u ^- ^ T ^ -3 T M |C iJj TiJ tl T-j: # { c ( S M ® ii, :7 ^ 

(a -3) WO 2$^mwmii. mmmm<Dwo 2(D^-^jLijyf^i" 
^^'i^^-^^-^xnmm^n^f^t^iziimmmy^^^^^y bL. 

^^'^^tj^t^lZltyFf^xLy^^'^±y \.-r^h(D-T:$>0 . 
(a -4) W0 3|iffl^^«, fHjD^ggoDWO 2 (D^'-^XU 

(a-5) WO 3mmwmi-i. '^mmtEowo 3<D^'-^jL^jYf}V ^" 

<7^IS^M^^ttSLT^|^iJ^fii^^|g^gK(7)WO 3(7)^'-^xU TfCiS 

x^L. ^ii^^^^m^mtii■v^ul.tM^l:$>'^xmmm^mf^t^^zl^m 

fel3#^.^&(7)#W0 4^-5'X.J7^M^iA/,/i-W0 4 A°U.;. K ill SI 

mizmmmm±izr¥^-r^mm(7^^wo 2^mmm^m^Tnjmiz^ti^ 

^^^>^^^^o)^^mi^±izw&r^mma)^wo 3 itmmmRzj^w 
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0 smm^m^itmmmm.. mmmmmcDmmizm^f-^miz^t^^t 

1 =bi;-&¥ig<7)^w 0 3 7^'-^x ij y ^m^3A^/I'w 0 3 /\° u «y h 

( d ) Hirf2W 0 4 /\° 1/ y V Q^^'uXzmrS < mm'f—^^n > li:x-^(7) 

ilffi±{ziim L , sgiiiMHffi{z^^-r-g)fc;:^iii®5=^-^ ^^ft LTMI2W 
0 2 /N° V y V ^^ff ^I^W 0 2 U K CD stf SB ^ JJ M SS :7 ^ ^'(IS 

MIBm4lf*i^S'J^> HufB^fgiSliSiJ^, hu pB $a U M S§ S: 1/ M SB IS ^ M ^ i» 



/I U -y hS^MU^tZ (c) <7)#|^^^«6lBtt UT4o€. 

qulB¥l§©{3ilulB^®{*|.1!lSiJ^. M SB ¥ 8g sHi ^ij T , Hu SB M 11 M g§ & U^" 

mJSB¥H§©{CHuSBA-;j$nfcMSB^iI«{*|?5giJT. llfl SB ^ g§ > nff 

$immmi^:&vim$imiii^- ^ ^ . m/SBSBti^ti/zTfeXEttc^w o 4'f4>fEi 

M^^. W0 4t^JlM^, W0 2g§!il^l^. W0 3{4ffiS*, WO 3.1^11 
^m^Jcy."±SBc7) (b) <D/-^u y hmmiflZ (c) (7)-^ l^cDFfr^-CDfi g(c 
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